home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / jock.zip / TOTDEM11.ZIP / DEMBR4.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  645b  |  32 lines
  1. Program DemoBrowseArray;
  2.  
  3. Uses DOS,CRT,
  4.      totFAST, totINPUT, totLINK, totLIST, totSTR;
  5. const
  6.    DefaultFile = 'c:\autoexec.bat';
  7. var
  8.    BWin: BrowseFileOBJ;
  9.    RetCode: integer;
  10.    Filename: string;
  11.  
  12. begin
  13.    Screen.Clear(white,'░'); {paint the screen}
  14.    if ParamCount = 0 then
  15.       FileName := DefaultFile
  16.    else
  17.       FileName := ParamStr(1);
  18.    with BWin do
  19.    begin
  20.       Init;
  21.       Retcode := AssignFile(Filename);
  22.       if Retcode in [0,2] then
  23.          Go
  24.       else
  25.       begin
  26.          Writeln('Unable to find file: ',Filename,'.');
  27.          Key.DelayKey(2000);
  28.       end;
  29.       Done;
  30.    end;
  31. end.
  32.